home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / faq / trekgui.lha / Trx / TGS.rexx < prev    next >
OS/2 REXX Batch file  |  1995-11-03  |  676b  |  26 lines
  1. /*SET SCREENMODE FOR TREK-THE.GUIDE v1.0 */
  2.  
  3.  
  4. if ~show('L','rexxreqtools.library') then
  5.         call addlib("rexxreqtools.library", 0, -30, 0)
  6.  
  7. NL = '0a'x
  8.  
  9. screenmode = rtscreenmoderequest( "Pick Screen Resolution", ,,
  10.               "rtsc_flags = screqf_sizegads", screen)
  11.  
  12. if screenmode ~= "" then do
  13.     open(sm, 'envarc:Trekguide.prefs', 'w')
  14.     writeln(sm, screen.width'|'screen.height)
  15.     close(sm)
  16.     address command 'copy envarc:trekguide.prefs env:trekguide.prefs'
  17.     call rtezrequest( "You MUST shut down Trek-The Guide" || NL || "and restart it.", " OK ", , )
  18. end
  19. exit
  20.  
  21. if screenmode = "" then do
  22. end
  23.  
  24. call rtfreefilebuffer()
  25. address command 'copy envarc:trekguide.prefs env:'
  26.